home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / H-K / Hello Tabby.sit / Globals.p next >
Encoding:
Text File  |  1989-07-06  |  538 b   |  35 lines  |  [TEXT/PJMM]
  1. unit Globals;
  2.  
  3. {    Created June 29, 1989, to organize global variables            }
  4.  
  5. {    Next four lines handle Debug, Names, Overflow and Range        }
  6. {    checking options in compiler.                                }
  7.  
  8. {$D+}
  9. {$N+}
  10. {$V+}
  11. {$R+}
  12.  
  13. interface
  14.  
  15. const
  16.     NULL = chr(0);
  17.     TAB = chr(9);
  18.     ENDLINE = chr(13);
  19.     SPACE = chr(32);
  20.  
  21. type
  22.     MyByte = byte;
  23.     OneString = STR255;
  24.     OneStringPtr = ^OneString;
  25.     OneStringHdl = ^OneStringPtr;
  26.  
  27. var
  28.     FileError: OSErr;
  29.     VRefNum, CurrentResFile, ErrorCode: integer;
  30.     VolName: STR255;
  31.     ErrorFlag: boolean;
  32.  
  33. implementation
  34.  
  35. end.        {    Globals unit    }